home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 75
/
MOBICLIC 75.ISO
/
pc
/
DATA
/
TOUTEDIT
/
TOUT_MATOS.cst
/
00007_Script_GESTION_BTONS_NAVIGATEURS
< prev
next >
Wrap
Text File
|
2005-06-15
|
2KB
|
65 lines
global gJLM_W,gL_TOUT
property pSprite, pSpriteNo,pMembername,pSpriteName,pNo
----------------------------------
on beginsprite me
pSpriteNo = me.spriteNum
pSprite = _movie.sprite(pSpriteNo)
pMembername = pSprite.member.name
pSpriteName = pSprite.name
pNo = extractNo(sprite(pSpriteNo+1).member.name)
end
-----------------------------------
on mouseEnter me
if the pauseState = 1 then exit
if gJLM_W > 0 then exit
_player.cursor(280)
pSprite.member = pMembername&"_R"
pSprite.loc = pSprite.loc + point(3,3)
case(pNo) of
1:
son = "colomb"
2:
son = "gama"
3:
son = "magellan"
4:
son = "cartier"
end case
lowjoueson(son,2)
bulle("@IB"&gimme2digits(pNo),"B",me,2,1,0,2,70)
_movie.updateStage()
end
-----------------------------------
on mouseWithin me
if the pauseState = 1 then exit
if gJLM_W > 0 then exit
_player.cursor(280)
end
---------------------------------
on mouseLeave me
_player.cursor(-1)
if the pauseState = 1 then exit
if gJLM_W > 0 then exit
coupeson(2)
bulle(0)
_movie.puppetSprite(pSpriteNo , FALSE)
end
-----------------------------------
on mouseUp me
if the pauseState = 1 then exit
if gJLM_W > 0 then exit
_player.cursor(-1)
bulle(0)
case(pNo) of
1:
if zNoSRub()-1 = 1 then
_movie.go("PRESA")
else
goSameRub(pNo)
end if
otherwise:
goSameRub(pNo)
end case
end
-----------------------------------